COMMENT ⊗   VALID 00002 PAGES
C REC  PAGE   DESCRIPTION
C00001 00001
C00002 00002	1	FORMAT(' TYPE NAME.EXT #1  AND NUM. OF FILES/PAGE.  '$)
C00004 ENDMK
C⊗;
1	FORMAT(' TYPE NAME.EXT #1  AND NUM. OF FILES/PAGE.  '$)
2	FORMAT(' TYPE NAME FOR START OF LAST PAGE.  '$)
6	FORMAT(' TYPE NAME FOR START OF 2ND PAGE.  '$)
3	FORMAT(A5,A4,I)
4	FORMAT(' TYPE LOGIN INFO  '$)
	DIMENSION LOGIN(2)
	TYPE 4
	ACCEPT 3,LOGIN
	TYPE 1
	ACCEPT 3,NM1,IEXT,NUM
C ASSUMES 5-LETTER NAME AND 3-LETTER EXTENSION.
	TYPE 6
	ACCEPT 3,NNN
	IF(NNN.EQ.' ')NNN=NM1+256
C BLANK MEANS GO UP ALPHABET WITH 4 LETTER. (+256)
	NNN=NNN-NM1
C HOW MUCH TO ADD TO NAME.  (IF NUMS., 0 TO 9 ONLY)
	TYPE 2
	ACCEPT 3,NM2
	NMX=NM1
	CALL OFILE (1,'PTY')
10	FORMAT('.L ',A5,A2)
11	FORMAT(
	1'.R MP',/'*',2A5,I2,/'*'/,'*'/,'.R XM'/,'*G'/,'*NX')
	WRITE(1,10)LOGIN
5	WRITE(1,11)NMX,IEXT,NUM
	NMX=NMX+NNN
	IF(NMX.LE.NM2)GO TO 5
	TYPE 7 
7	FORMAT(' ******PTY.DAT WAS WRITTEN******')
	END